-- card: 3026 from stack: in
-- bmap block id: 3176
-- flags: 0000
-- background id: 2811
-- name: 
----- HyperTalk script -----
on OpenCard
  show MenuBar
end OpenCard


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=14 top=307 right=329 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Make a 'pllt'
----- HyperTalk script -----
on mouseUp
  put numtochar(34) into quotes
  put return & "  $" & quotes into newLine

  answer "What type of colors?" with "Courteous" or "Tolerant" or "Explicit"

  if it is "Courteous" then
    put " 0000" into colorType
  else
    if it is "Tolerant" then
      put " 0002" into colorType
    else
      put " 0008" into colorType
    end if
  end if
  set the cursor to 4

  put "data 'pllt'  (128, " & quotes & "Full Gray Palette" & quotes & ")  {" into card field Palette

  put newLine & hex(256) && "0000 0000 0000 0000 0000 0000 0000" & quotes & newLine after card field Palette

  put colorType && "0000 0000 0000 0000" & quotes before newLine

  put 256 into counter
  repeat 255
    put (counter * 256)-1 into decimalNum
    put Hex(decimalNum) into hexNum
    put hexNum && hexNum && hexNum & newLine after card field Palette
    subtract 1 from counter
  end repeat

  put "0000 0000 0000 0000 0000 0000 0000 0000" & quotes & return & "};" after card field Palette

  beep 5
end mouseUp



-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=3 top=24 right=300 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Palette


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=118 top=307 right=329 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit 'pllt' Script
----- HyperTalk script -----
on mouseUp
  edit script of card button "Make a 'pllt'"
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=336 top=24 right=300 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=407 top=308 right=330 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Ballot
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to card 2
end mouseUp



-- part contents for card part 4
----- text -----
Hello!
     I'm a doctoral candidate at the State University of New York at Buffalo, where I am Associate Director of the Center for Learning and Technology.  We at the CLT have several pieces of software rapidly nearing distribution readiness.  I'd appreciate your help in deciding how we should distribute them.  We need to make enough money from our software to support future projects, but we want to make our products available at as low a cost to users as possible.  We are strongly considering using the “ShareWare” method of distribution, but are wary of the low ‘honesty’ rate.  That is where this stack comes in.  Although we think it's a handy little utility, it is by no means a major piece of programming.  We therefore have nothing to lose if no one ever pays the ShareWare fee, so we are asking you, the ShareWare consuming public, to express your opinion with your vote.  If you think we should go the ShareWare route, then please send $1.00 to register this stack, and be placed on our mailing list (no hard sell here, we're a university, not a software company).  If you don't think we should go ShareWare, just vote “No” and we'll put you on our mailing list whether you send the dollar or not.  You get to keep the stack either way, but if you send a buck with your vote (c'mon, it's only a dollar - and this stack probably saved you much more than that in time…) you'll be helping us out.
    Thanks for downloading the stack, reading this and voting!
     --Ron